home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 8 (Internal Edition) / Apple R&P Lib Internal v8.0.iso / 3-Presentations / Markets / K-12 Education / HyperCard in Education / Railroading / card_21610.txt < prev    next >
Text File  |  1990-02-20  |  2KB  |  90 lines
  1. -- card: 21610 from stack: in
  2. -- bmap block id: 21978
  3. -- flags: 0000
  4. -- background id: 14277
  5. -- name: Promontory
  6. ----- HyperTalk script -----
  7. on OpenCard
  8.   global Story,forward,reverse
  9.   if Story="Trans" then
  10.     put "Story" into forward
  11.     put "Durant" into reverse
  12.   end if
  13. End OpenCard
  14.  
  15.  
  16.  
  17. -- part 1 (field)
  18. -- low flags: 00
  19. -- high flags: 4007
  20. -- rect: left=293 top=42 right=160 bottom=512
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 0
  24. -- font id: 3
  25. -- text size: 12
  26. -- style flags: 0
  27. -- line height: 16
  28. -- part name: 
  29.  
  30.  
  31. -- part 2 (button)
  32. -- low flags: 00
  33. -- high flags: 0000
  34. -- rect: left=440 top=301 right=342 bottom=484
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 1016 / 1016
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: Prev
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   go to card "west"
  46. end mouseUp
  47.  
  48.  
  49. -- part 4 (button)
  50. -- low flags: 00
  51. -- high flags: 0000
  52. -- rect: left=427 top=250 right=301 bottom=492
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: 
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   go to card "Menu"
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 5 (button)
  69. -- low flags: 00
  70. -- high flags: A002
  71. -- rect: left=16 top=319 right=340 bottom=76
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Return
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   global returncard
  83.   go to returncard
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part contents for card part 1
  89. ----- text -----
  90.      The Union Pacific and Central Pacifics joined at Promontory Point, Utah, on May 10, 1869.  To commemorate the achievements of the two companies, a golden tie was made to join the last two unjoined ties.  Even though the hammer went up and missed the spike completely, the cheers resounded marking the end of a heroic achievement in human labor.